home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00023.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  373 b   |  17 lines
  1. on exitFrame
  2.   global advance, ppl, foes
  3.   if advance = 1 then
  4.     foes(getAt(foes, 1), getAt(ppl, 2))
  5.   else
  6.     if (advance = 2) or (advance = 3) then
  7.       foes(getAt(foes, 2), getAt(ppl, 3))
  8.       foes(getAt(foes, 3), getAt(ppl, 4))
  9.     else
  10.       if advance = 4 then
  11.         foes(getAt(foes, 1), getAt(ppl, 2))
  12.       end if
  13.     end if
  14.   end if
  15.   go(marker(0) + 1)
  16. end
  17.